home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 August / Ahoy_Magazine_85-08_1985_Double_L.d64 / vic space shot (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  585b  |  23 lines
  1. 1 rem sound effects
  2. 2 rem space gunshot (vic version)
  3. 10 gosub 900:goto 100
  4. 20 poke fr(0),0:poke fr(1),0:poke fr(2),0:poke fr(3),115
  5. 30 print "."
  6. 45 for i=15 to 0 step -1.5:poke vl,i:x=p(70+3*i):poke fr(3),x
  7. 50 poke fr(0),450-x:next:poke fr(3),0
  8. 55 for i=1 to 9 step 3:poke vl,i:next
  9. 60 for i=0 to 3:poke fr(i),0:next
  10. 90 return
  11. 99 rem routine to play sounds when shift is pressed
  12. 100 print "press shift";
  13. 110 if peek(653)=0 then 110
  14. 120 gosub 20:goto 100
  15. 898 rem routine to set up variables
  16. 899 rem set up sound control addresses
  17. 900 dim fr(3),p(127)
  18. 910 fr(0)=36874:for i=1 to 3:fr(i)=fr(i-1)+1:next
  19. 920 for i=0 to 127:p(i)=i+128:next
  20. 929 rem set volume address
  21. 930 vl=36878
  22. 990 return
  23.